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1.0 Introduction 



In its simplest form, CCP may be used to retrieve characters 
from a user supplied file and send them to a "pseudo teletype." 
The pseudo teletype v;ill react to these characters the same way 
a teletype connected to the system would react in all cases. 
CCP, then, is a pseudo-typist capable of sending characters to 
the pseudo teletype. 

It is possible to save the output generated by the pseudo . 
teletype and examine it with internally coded CCP functions. 
A CCP program, therefore, can cause a user program to execute 
and then examine the resulting output. Conditional statements 
in CCP will allow appropriate action to take place based on 
the output. 

CCP may be viewed as a macro processor in that arguments 
can be supplied when a CCP program is to be run. These 
arguments may be referred to within the program. 

CCP takes the form of an algol-like language, including 
recursive, user-defined functions with substitutable arguments. 
Additional features are two character-send functions and several 
other internally coded functions. 
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g.O Basic Syntactic Com-ponents 



This chapter "builds the small vocabulary necessary for a 
full description of CCP. 

2.1 Numbers 

Only integer numbers are accepted by CCP. 

2.2 Names 

Names are composed of letters, numbers and blanks. Names 
may be of any length, but only the first and last four non-blank 
characters serve to recognize the name. At least one character 
of a name must be a letter. A name may not refer to more than 
one syntactic object (e.g., XYZ may not be a label and a 
variable name). 

2.3 Variables 

Variables may at any given moment be in 'one of three states; 
undefined, string- valued or integer- valued. All variables are 
initially undefined. Variables may freely change state. 

2.U Dummy argument names 

A dummy argument name is a name as defined above, preceded 
^y ^^ ($) dollar sign. So 
$ABC 

$1B5 

$LONG DUMMY NAME 

are acceptable dummy argument names , 
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2.5 Dumniy argument references 



The use of dummy argument references will be explained below. 
Syntactically, a dummy argument reference consists of a dummy 
argument name followed by a parenthesized expression of any 
complexity involving integers and integer-valued variables. 
Therefore, 

$ABC(5) 

$l^(2t(7-X/3)) 
are syntactically correct dummy argument references. 

2.6 String references 

A string reference is either a quoted string, a string- 
valued variable reference, or a string- valued dummy argument 
reference . For example : 

'ABC' 

'CARRIAGE RETURNS AND LINE 

FEEDS AND CONTROL CHARACTERS 

MAY BE IN A STRING' 

XYZ 

$ABC(7) 
are string references (if XYZ and $ABC(7) are string- valued) . 

There is a special string-valued variable with the name 
QUOTE which has the value (') quote-mark. This, variable differs 
from other variables only in the respect that it is initially 
defined. 

There, is one other type of string, and this is the "non- 
string." This is equivalent to a null string but has special 
meaning, as will be explained later. 

2.7 Integer references 

An integer reference is either an expression of any complexity 
involving integers and integer -valued vstriables^ or a dwnmy 
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nrgi:iment reference v/ith an integer value. A dummy argument 
reference may never appear in an arithmetic expression. 

2.8 Statements 

There are four types of statements in CCP. They are : 

a) Assignment statements 

b) Internally coded working functions 

c) Internally coded predicate functions 

d) Character-send mode statements. 

Each type of statement will be fully explained in the next 
chapter. Any number of statements (or fractions thereof) may 
appear on one line. Carriage returns, line feeds, and blanks 
are, except within a quoted string, completely disregarded. 

2.9 Labels 

Labels are identified by names. A statement (or a labeled 
statement) may be labeled by preceeding the statement by a label 
name followed by a (:) colon. A label name may not be used 
more than once to label a statement. 

LABEL: 

DOUBLY: LABELED: 
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3.0 CCP Statement! 



3.1 Ansjgnment statements 

There are two categories of assignment statements: 

a) <Variable> = <String reference>, 

b) <Variable> = <Integer reference>, 

Note that each type of assignment statement is terminated 
with a comma. 

It is permitted that variables change from string- valued to 
integer-valued freely. Examples of assignment statements are: 
A = 3, B = A, 
A>.'LOVE', 
XYZ = -At(B-.7/A), 
A ^^ $DUMMY(1), 
B = $DUMMY(2), 
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3-^- Internally coded viorking functions 



JUMP(<label>) 

Execution of this function causes jin unconditional 
transfer of control to the indicated label. 

SJlMP(<label>) 

Transfer to the label takes place only if the current 
predicate value is success (see next section). Otherwise, 
the flow of control passes to the next statement in the 
program. 

FJUMP(<label>) 

Transfer is effected only if the current predicate 
value is failure . 

FU])ICTION(<label>, <duinmy argument narae>, <list of 3.ocal variables>) 
This statement causes a function to be associated with 
the label. References to arguments given to the function 
when called will be made with the indicated dummy argument 
name. The list of - variables will be considered local 
to the function. There may be only one FUNCTION statement 
for a given label. Two or more different functions may 
. use the same dummy argument name. Examples: 
FUNCTION (ABC,$DUMMY) 
FUNCTION (XYZ, $DUM, TEMPI, TEMP2) 

CAIiL(<label>, <list of argument s>) 

This statement will call the function associated w^ith 
the label. If a call to ABC (defined above) is executed: 
CALL(ABC, 100, 'PEACE') 

then $DUMMy(l) will be integer-valued with the value 100 
and $DUMMY(2) will be string-valued with the value 'PEACE'. 
The zero-th reference is always integer-valued with the 
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number of arguments supplied as its value. So in this 
instance $DUMMY(o) is equal to two. References to $DUIv1MY(n) 
where N is less than zero or greater than two will be errors 
Labels must be passed as arguments enclosed in (") double- 
quote marks. So 

CALL(ABC, "IABKL") 

ABC: JlIMP($DUI#IY(l)) 
causes a transfer to the statement labeled with LABEL. 
Arguments provided in a CALL statement must be string 
references, expressions of any complexity, labels or 
dummy argument references. So 

CALL(ABC,7,Xt5~Y/Z, 'MOTHER', $XYZ (7 ), "LABEL") 

is syntactically correct. 

To return from a called function, there are three ways: 
JUMP(RETURN) - causes, a return to the next lower level, 
reinstating the value of predicacy that existed when 
the function was called. 
JUMP(SRETURN) - causes a return, and changes the value 

of predicacy at the lower level to success . 
JUMP(FRETURN) - causes a return and changes the va3.ue 
of predicacy at the lower level to failure . 

SCALL(<labe]>, <list of argument s>) 

The CALL is executed only d,f the current value of 
predicacy is success . 

FCALL(<list of arguments>) 

The CALL is executed only if the current value of 
predicacy is failure . 

CONCAT(<variable>, <string reference>, <string reference>) 
Execution of this statement causes the value of the 
variable to become the string obtained by concatenating 
the two string references. 
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CN3TNU(<var1.ab.le>j <string referenco) 

Thi.s converts the first numeric string of characters 
in the string reference to a decimal integer and sets 
the value of the variable to this integer. A (+) plus 
sign or (-) minus sign will be considered numeric 
characters. 

e.g. CNSTNU(X, 'ABC123ABC*) cause X to become 1?3 
CNSTMJ(X, '10') cause X to become 10 
CNSTIW(X, 'A-A5') cause X to become 

CNNUST(<variable>, <integer reference>) 

This function causes the integer to become converted 
into a string of digits, signed only if negative, and 
stored as the value of the variable. 

ERCOMP(<label>) 

Execution of this function causes a transfer to the 
label only if during compile-time errors were detected 
in the program. 

ERJUMP(<labe.l>) 

This function saves the label and will cause transfer 
to the label in the event that a run-time error occurs. 
If a second run-time error occurs before another ERJUMP 
statement is executed, execution halts. 

CCMMEKT(<string referenco) 

This function causes the string to be printed on the 
teletype when this function is executed. 

TTY0N(< integer reference>) 

This function determines whether or not output of the 
pseudo teletype is to be printed on the controlling (user) 
teletype. Initially, the output is not printed. To 
cause the output to be x")rinted, execute TTYON with the 
value of the integer reference non-negative. To turn 
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the teletype off, execute TTYON with a negative argument. 
Note that TTYON and OUTFILE are comp3.etely independent 
of each other. 

OUTFILE (<string reference>) 

This function opens the file specified by the string 
reference and causes all output of the pseudo teletiT:)e 
to be diverted to the file. The file is opened at its 
beginning. 

REOEEl^(<string reference>) 

Same as above except file is opened at its end 
(i.e., output from the pseudo teletype is added to the 
contents of this file . ) 

SETFIAG(<string reference>s) 

The string referenced is written on the current outfile 
between two control ( [ ) left-bracket characters . This 
flag may be used by the predicate functions MATCH and 
GSTRING, to be described below. 

ERSFIAG(<string reference>) 

This function erases all flags written on the file 
indicated by the string reference. 

TII'1E(<integer reference>, <label>) 

This function specifies that a transfer to the indicated 
label is effected if and only if the next character-'Send 
statement does not terminate within N seconds, where N 
is the value of this integer reference. 

INTERACT (<mode character>) 

Read about character-send statements before trying to 
understand this function. Tliis function may be used to 
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allow interaction to take p3.ace between the user (via 
the teletype) and the pseudo teletype. The mode character 
((3?or >) determines whether (J-' -mode or >-mode is desired. 
All characters are sent literally except that control 
(^) left arrow causes a rubout to be sent, control ([) 
left-bracket causes termination of the mode, and rubout 
terminates the CCP program. \Jhen ICITERACT is executed, 
several bells will ring to let the user know. 
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Infernally Coded Predicate Functions. 



During execution of a CCP program, there is a state of 
being, known as predicacy, which exists v:ith one of two 
values: success or f ai3,ure , Initially (when a program 
starts) and each time a function is called, predicacy is 
automatically set to success . Thereafter, the only ways 
the value of predicacy may be changed are by executing one 
of the follov/ing predicate functions, or by returning from 
a called function via SR?:tU1^ or FRF.TUM. Predicacy may be 
tested for by any of the previously explained, functions 
SCALL, FCALL, SJUMP, and FJUMP. 

inJLL{<string referenco) 

Sets predicacy to success if the string reference is 
the null string, else sets predicacy to failure . 

ECiUAL(<integer reference>, <integer referenco) 

Success if the tvra integers are the same value, else 
failure . 

GRTR(<integer reference>, <integer referenco) 

Success if the first integer is greater than the second, 
else failure . 

STREQL(<string reference>, <string reference>) 

Success if the tv;o strings are exactly the same, 
else failure . 

MATCH(<string refl>, <string ref2>, <string ref5>, <string refi+>) 
This function executes a search on the file specified 
by string reference 1. The string referenced by string 
reference 9. is the string of characters searched for. 
MATCH changes the value of predicacy to success if the 
string is found, else changes the value to failure. The 
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bounds of the search are indicated with string references 
3 and h in the following complicated manner. 

If string reference 3 is a flag by SETFIAG, the search 
commences after the first occurrence of this flag. If 
string reference 3 is the (") null string, the search 
will begin 8.fter the point where the search v/as most 
recently discontinued. If the () non-string is specified, 
then the search begins at the beginning of the file (see 
example below for clarification). 

String reference k determines where the search vfill 
terminate. If string reference ii- is a flag set by 
SETFIAG, then the search will terminate at the first 
occurrence of this flag after the search has started. 
If string reference h is the () non-string, or if the 
flag is not encountered in the file during the search, 
then the search will terminate at the end of the file. 

Assume the file /x/ has the following characters, with 
flags (f1) and (F2): 



123123123(F1)123 12:3(F2)123 12 



Then the following program will count the occurrences 



of the string *12' in regions 1 and 3: 

COUNT =0, 

MTCH(7X/', »12',,'F1') 
LOOPl: COUNT = COUNT + 1, 

MATCHC/x/S '12', ", 'Fl') 
KEGI0N3: MATCH('A/S '12', 'F2') 

L00P3: COUNT = COUNT + 1, 

MATCH(7x/S '12', ") 
EXIT: 



FJUI4P(REGION3) 
SJUMP( LOOPl) 

fjump(kxit) 

SJUMP(L00P3) 
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GSTRING(<r.1:ring ref 1>, <variable>, <string rcf 2>, <string ref 3>, 

<string ref ^>, <string ref 5>) 

Tills function executes a search on the file specified by 
string reference 1. It searches for a string of characters 
preceded by the string referenced by string reference 2 
and followed by the string referenced by string reference 3* 
If such a string is found, then the value of the variable 
is set to this stringy and the value of predicacy is set 
^^ success . If not found, the variable is set to the null 
string and the value of predicacy is set to failure . String 
references h and 5 specify the bounds of the search in the 
same way the bounds are set in the function MTCH- 

Consider the file /y/ whose contents, with flags (F3) 
and (F^ ) are as follows : 
ABCDCD7F(F3)/i/2/3A/(fU )l/l/l/ 

The statement 

GSTRING(VVS ^3 'CDS '?') 

succeeds with X - 'CDtl'- 
The following program calls the user function EXAMINE for 
each number found between (/) slashes on the file: 

gstring(Vy/',x, •/'//*) fjump(exit) 

LOOP: CALL(EXA>IINE,X) 

GSTRING(Vy/'>X^7S '/'/') SJUMP(LOOP) 

EXIT: 

Carefully notice that this program will call EXAMINE for 
all 7 cases. The flag (fU) will be ignored completely. 
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3.U Character- send statements 



There are two modes for sending characters to the pseudo- 
teletype. {5i?-mode insures that the Time-Sharing executive 
is the listening program "by sending several ruhouts. >-mode 
does not disturb the pseudo teletype before sending characters. 
For example, the CCP statement 

/V CAL. : 
first causes several rubouts to be sent, then a C, an A, 
a L, and finally a (.) period. The exclamation point indicates 
the termination of the statement. Character-send statements may 
also be terminated with a {%) percent sign, and the distinction 
will be described below. If the next CCP character-senci statement 

is 

>SET A = 1: 

Then the characters 
SET A = 1 
would be sent, and CAL would still be listening. The pseudo 
teletype is initially set in BEGINNER mode (see document $-22). 

It is possible for the value of a string-valued dummy 
argument reference to be sent in character- send mode, and this 
is indicated by including the reference in the statement: 

COPY. FILE $DUMMY(3) TO $DUTMY(U).^ 

if $DUMMy(3) is 'XYZ' and $DUMMY(i^) is ' /XYZ' then the 
characters sent will be several rubouts and then: 
COPY FILE XYZ TO /XYZ. 

To cause the string value of a variable to be sent, the 
variable name must be preceded by a .($) dollar sign and followed 
by a (.) period: If X has the value '/fILE/' , then 

>G0 TO $x..:' 

causes the string 
GO TO /fIIE/. 

to be sent. 
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If a control (^-) left arrovf is found in the statement, then 
a rubout will be sent to the pseudo teletype instead of that 
character. If a control ([) left-bracket is found in the state- 
ment, then the statement will immediately terminate (as if the 
(1) exclamation point had appeared at that point.) Clearly 
the value of this convention is seen only where variable and 
dummy argument references are involved. Carriage returns and 
line feeds are not normally sent. 

$X.. 

1,5 

YES 
c c c 

$Y 

COPY FIIxE /a/ to /b/. 

If X has the value '/k/' and Y has the value 'AB] CD', then 
the characters sent will be 

QPD./a/.1,5.YES rubout rubout AB' 

In the sending of vEuriable and dummy argument references, 
all characters are sent literally except control {<r-) left arrow 
and control ([) left bracket, i.e., if X is '^Y. ' then 
>$X.! 

causes the characters 
$Y. 

to be sent- 

If it is desired that the characters $,J, ^, <- , [ , cr. If 
be sent without the above-mentioned conventions, then they must 
be preceded by a ($) dollar sign. (This does not hold within 
variable or dummy argument references.) A ($) dollar sign 
found in any context other than those heretofore described 
•will cause a compile error. The CCP statement 
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sends 

'4 

to the pseudo teletype. 

Now the difference between terminating a character-send 
mode statement with (l) exclamation point or {i) will be 
explained. V^hen (l) exclamation point is used, the flow of 
control will not pass to the next statement until the last 
character has been sent and the pseudo teletype is again waiting 
for input. Termination v/ith {%) causes completion of the 
statement as soon as the last character is sent. 
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U.O Error Handling 

^.1 Compile Time Errors 

Syntactic errors will be discovered at compile-time and error 
messages giving the line number and an explanation will be generated 
to the teletype. After each discovered syntactic error, CCP will 
search through the input text for a labeled statement. At this 
point compilation vrill continue. VJhether or not there were 
compilation errors can be tested at runtime with the function 
ERCOMP. 

When a name is found to have double use, an error message 
is generated and the first use remains in effect (e.g., doubly 
used label, or a name first used as a variable and then as a 
label). 

U.2 Runtime Errors 

Runtime errors will likewise result in hopefully el.ucidative 
error messages. Possible runtime errors are: finding an out-of- 
bounds dummy argument reference, using a v/rong-type variable or 
trying to execute a statement which did not compile correctly. 

\lhen a runtime error is encountered, a check is made to see 
if an ERJUMP statement has been executed. If such a statement 
was executed, and no runtime errors have occurred since, then 
the stack is reset to level and a transfer to the ERtTUMP label 
is executed. A message is printed on the teletype indicating 
tbis activity. Otherwise, execution of the program is terminated. 
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^.0 Running a Program 

CCP programs are best composed in QED- If serious vrark is 
being done, it is suggested that free use of the functions ERCOMP 
and ERJUI-IP is made. 

VJhen calling the subsystem CCP, a list of arguments is 
requested. Arguments may be supplied in exactly the same manner 
as in a CALL function. Typing a ()) right parenthesis will 
terminate the list, and CCP vrill request the name of the file 
on which the program lies. A typical encounter v/ith CCP might 
appear as follows (underlined characters are typed by CCP) : 
(^CCF. 

ARGUMENTS; ( 2?, '/FH^S "LABELI", 2t5) 
INPUT: /CCP. 

BAD EXPRESSION AT LINE+2 
NAME USED VmONGLY LINE+7 
'STEFLAG' IS NOT A CCP FUNCTION AT LIKE 12 



^«-^ COMPILED WITH 3 ERRORS ^-^ 



COMPILE ERROR ENCOUNTERED 

LINE 2, LEVEL 

ER.7UMP TRANSFER TO LABEL 1 



OUT-OF-BOUNDS DUMMY REFERENCE 
LPIE 36, LEVEL 7 
NO ERJUMP TRANSFER 

END 
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The arguments given to CCP at runtime are referred to with 
a special dummy argument name. In the above example: 

$(1) is 27 

$(2) is VFII^' etc. 

and 

$(0) is h 
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6 ♦ Example s 



This program expects a list of files in pairs tha,t are to 
be copied. When the argument 'I' is» found, the rest of the 
arguments are files to be assembled. Checks are made during 
the copying that no errors occurred. 

ercomp(exit) 
function(copycheck,$dum) 

N « 1, 

Loopi: streql($(n), 'I') s jump(assembi;e ) 

OUTFII£('/$X') 

&COFi FII£ $(N) TO $(W+l).: 

CALL (COPYCIffiCK) 

N = N+2, JUMP(LOOPl) 

ASSEMBLE: EQ,UAL($(0),iO SJUMP(EXIT) 
(^ARPAS . $ (N+1 ) , $ (N+2 ) . ! 
. N = N+2, JUMP( ASSEMBLE) 

COPYCHECK: MATCH(V$X', '. or If If') SJUMP(RETURN) 
INTERACT(>) jump(return) 



EXIT: 



